home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaf.d64 / lexikos (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  19 lines
  1. 1 :POKE808,234:M=49152:SYS58692:PRINTCHR$(142):POKE53280,0:POKE53281,0:POKE646,15:A$=CHR$(34):OPEN15,8,15:INPUT#15,E,E$,J,J:IFE>1THENPRINT#15,"I0":POKE2,0:CLOSE15
  2. 2 IFE>0THENE=0:PRINT"[147] ";E$:FORI=1TO3000:NEXT:RUN
  3. 3 GOSUB12
  4. 4 GETS$:IFS$<>""THEN4
  5. 5 TX=TI
  6. 6 GETS$:IFTI>TX+60*10THENF$="DOX*":GOTO11
  7. 7 IFS$="Y"ORS$="[217]"THENF$="SET":GOTO11
  8. 8 IFS$="N"ORS$="[206]"THENF$="DOX*":GOTO11
  9. 9 IFS$="Q"ORS$="[209]"THENF$="MENU":GOTO11
  10. 10 GOTO6:PRINTCHR$(142);TAB(18)"[155][215][193][201][212]
  11. 11 [158]58692:[151]646,0:[153]"";:[153]"LOAD"A$[170]F$[170]A$",8,1ONONON":[151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:[151]198,5:[128]:
  12. 12 [158]58692:[151]53280,0:[151]53281,0:[151]646,8:[153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAIT";:[153]"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW";:[153]"POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS";:[153]"ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND";
  13. 13 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO":[151]646,7:[153]"":[151]646,6:[153][199](14)"TOTOTOTOTOTOTOTOTOTOTOSYS   (null)ERSION 8.5   ";:[151]646,6:[153]"TOTOTOTOTOTOTOTOTOTOTOTO";:[153]"ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND";:[153]"POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS";
  14. 14 [153]"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW";:[153]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREWAIT";:[153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRWAIT";:[153]"                                        WAIT";:[153]" (C) (null). LENROSWELL 1986                   WAIT";
  15. 15 [153]"                                        WAIT";:[153]"                                        WAIT";:[153]"                                        WAIT";:[151]646,14:[153]"    LENHANGE SETUP?    VALNTER ((null)/(null)/(null))      WAIT";:[151]646,6
  16. 16 [153]"                                       ONONONONONONONONONON":[151]2023,32[170]128:[151]56295,6:[151]2023,32[170]128:[129]I[178]1310[164]1456:[135]A:[151]I,A:[151]M,A:M[178]M[170]1:[130]:[142]:[131]225,97,32,32,225,236,226,126,225,97,225,97,32,251,236,32,225,97,254
  17. 17 [131]126,108,236,251,123,108,236,251,123,32,32,32,32,32,32,32,32,32,32,32,32,225,97,32,32,225,252,123,32,32,251,236,32,32,225,97,32,225,160,126,32,225,97,225,97,124,252,98,32,32,32,32,32,32,32,32,32,32,32,32
  18. 18 [131]32,225,97,32,32,225,97,32,32,108,236,251,123,32,225,97,32,225,236,252,32,225,97,225,97,108,123,225,97,32,32,32,32,32,32,32,32,32,32,32,32,124,226,226,126,124,226,226,126,124,126,124,126,32,226,226,32,124,126,124,126,32,226,226,32,32,226,226
  19.